home *** CD-ROM | disk | FTP | other *** search
/ Trouble & Attitude 4 / Trouble and Attitude - Issue 04.iso / mac / DATA / MOVIES / COMMON.Cxt / 00075_Field_Chapter Script Template.txt < prev    next >
Text File  |  1997-01-14  |  4KB  |  149 lines
  1.  
  2. --
  3. -- Edge CHAPTER Script 31-Oct-96
  4. -- Based on generic CHAPTER script template 15-Oct-96
  5. --
  6. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  7.  
  8. on enterFrame
  9.   
  10.   global gMovieName, gMovie, gSoloMode
  11.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  12.   global gLastFrame, gMusicOn, gCaptionOn
  13.   global gLocalSound
  14.   global gCurPath, gNavMode, gControlPanel
  15.   global gMap1Icon, gMap2Icon, gPlaceOfOrigin, gMultiPageSidebar
  16.   
  17.   if voidP("gLastFrame") then set gLastFrame = 0
  18.   if voidP("gNavMode") then set gNavMode = "chapter"
  19.   if voidP("gLocalSound") then set gLocalSound = FALSE
  20.   set gPlaceOfOrigin = 0
  21.   set gMultiPageSidebar = FALSE
  22.   set gNavMode = "chapter"
  23.   
  24.   -- make sure the control panel is updated in every way
  25.   if objectP(gControlPanel) then
  26.     tell window "Control Panel"
  27.       setIconStatus "music", gMusicOn
  28.       setIconStatus "caption", gCaptionOn
  29.     end tell
  30.   end if
  31.   
  32.   if the frame = label("C1") then
  33.     -- ARTICLE
  34.     set gLastFrame = marker(1)
  35.   else if the frame = label("C2") then
  36.     -- SLIDE SHOW
  37.     if gMusicOn = TRUE then
  38.       if gLocalSound = FALSE then
  39.         if soundBusy(1) then sound stop 1
  40.         if soundBusy(2) then sound stop 2
  41.         sound fadeIn 1, 90
  42.         sound playFile 1, gCurPath & "DATA:EDGE:EDGELP.AIF"
  43.         set gLocalSound = TRUE
  44.       end if
  45.     end if
  46.     set gLastFrame = marker(1)
  47.   else if the frame = label("C3") then
  48.     -- VIDEO
  49.     set gLastFrame = marker(1)
  50.     set gLocalSound = FALSE
  51.     go to the frame + 1
  52.   end if
  53.   if gLocalSound = TRUE then
  54.     if soundBusy(1) = FALSE then
  55.       sound playFile 1, gCurPath & "DATA:EDGE:EDGELP.AIF"
  56.     end if
  57.   end if
  58.   
  59. end enterFrame
  60.  
  61. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  62.  
  63. on exitFrame
  64.   
  65.   global gMovieName, gMovie, gSoloMode
  66.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  67.   global gLastFrame
  68.   
  69.   if gSoloMode = FALSE then keepmusic
  70.   go to the frame
  71.   
  72. end exitFrame
  73.  
  74. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  75.  
  76. on MouseUp
  77.   
  78.   global gMovieName, gMovie, gSoloMode
  79.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  80.   global gLastFrame, gHotText, gHotTextLabel, gPlaceOfOrigin
  81.   global gMap1Icon, gMap2Icon, gPlaceOfOrigin, gSidebarOfOrigin
  82.   
  83.   set nowhere = 0
  84.   set next = 1
  85.   set previous = 2
  86.   set intro = 3
  87.   set sidebar = 4
  88.   set destination = nowhere
  89.   
  90.   if the ClickOn = gControlIcon then 
  91.     openControlPanel
  92.     set destination = nowhere
  93.   else if the ClickOn = gNextIcon then
  94.     if gLastFrame = 0 then
  95.       alert "Internal Navigation Logic Error, how did we get here?"
  96.     end if
  97.     if the frame = gLastFrame then
  98.       set destination = intro
  99.     else
  100.       set destination = next
  101.     end if
  102.   else if the ClickOn = gPreIcon then
  103.     if gLastFrame = 0 then
  104.       alert "Internal Navigation Logic Error, how did we get here?"
  105.     end if
  106.     if the frame = label("C1") then
  107.       set destination = intro
  108.     else if the frame = label("C2") then
  109.       set destination = intro
  110.     else if the frame = label("C3") then
  111.       set destination = intro
  112.     else
  113.       set destination = previous
  114.     end if
  115.   else if the ClickOn = gHotText then
  116.     set gPlaceOfOrigin = the frame
  117.     set destination = sidebar
  118.   end if
  119.   
  120.   case destination of
  121.     next:
  122.       go to frame the frame + 1
  123.     previous: 
  124.       go to frame the frame - 1
  125.     intro:
  126.       set gLocalSound = FALSE
  127.       if soundBusy(1) then sound fadeOut 1, 90
  128.       go to frame "intro"
  129.     sidebar:
  130.       if gHotTextLabel = "gear-list" then
  131.         go to frame label("S1")
  132.       else if gHotTextLabel = "begining-hikes" then
  133.         go to frame label("S2")
  134.       else if gHotTextLabel = "massacre" then
  135.         go to frame label("S3")
  136.       else if gHotTextLabel = "canyoners" then
  137.         go to frame label("S5")
  138.         
  139.       else
  140.         alert "chapter::mouseup: internal error, unknown hot text target"
  141.       end if
  142.   end case
  143. end if
  144.  
  145. end MouseUp
  146.  
  147.  
  148.  
  149.